Sub Ʈ( As String)

    Dim  As Range, c As Integer
    Dim  As Range

    Set  = Range("C2", Range("C2").End(xlToRight))
    c = WorksheetFunction.Match(, , 0)
            
    Set  = Range("B2").CurrentRegion.Columns(1)
    Set  = Union(, .Offset(, c))

    ActiveSheet.Shapes.AddChart(Width:=300, Height:=200).Select
    
    With ActiveChart
        
        .SetSourceData Source:=
        .ChartType = xlColumnClustered
        
        With WorksheetFunction
            ActiveChart.Axes(xlValue).MaximumScale = .Ceiling(.Max(Range("B2").CurrentRegion), 1000)
        End With
        
        .ChartStyle = 208
        .ChartGroups(1).GapWidth = 80
        .SetElement Element:=msoElementDataLabelOutSideEnd
        .Legend.Delete
        
        With .ChartTitle
        
            .Text = "[" &  & "] ǸŽ"
            .Format.TextFrame2.TextRange.Characters.Font.Size = 14
            
        End With
    
    End With
    
End Sub
